home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 March
/
64er_Magazin_87-03_1987_Markt__Technik_de_Side_A.d64
/
geos auf 50hz
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
44 lines
10 rem -- make50hz erzeugt euro-geos --
15 rem thorsten petrowski 10/86
20 rem (c) 64'er
25 :
30 :
35 a=a+1:if a=1 then load"gdm.obj",8,1:rem maschinencode laden
40 print"[147]geos-kernal disk einlegen - taste ":rem anweisung ausgeben
45 poke 198,0:wait 198,1:rem auf taste warten
50 :
55 :
60 open 15,8,15,"ui":print#15,"io":rem disk initialisieren
65 open 2,8,2,"geos kernal":rem geos-kernal oeffnen
70 :
75 gosub 200:rem disk-status pruefen
80 :
85 sys 49152:rem recordliste (vlir) lesen
86 close2:open2,8,2"#"
90 :
95 tr=peek(49666):se=peek(49667):rem block/sektor des zweiten records holen
100 print#15,"b-p:2 0":rem kanal 2 ruecksetzen (auf 0.byte)
105 :
110 poke 53265,11:rem bildschirm aus
115 :
120 for re=0 to 16:rem 17 blocks ueberspringen
125 :print#15,"u1:2 0";tr;se:rem block nr re lesen
130 :sys 49152:rem und in speicher holen
135 ta=tr:sa=se:rem spur/sektor merken
140 tr=peek(49664):se=peek(49665):rem und spur/sektor naechster block holen
145 next re:rem ende der schleife
150 :
155 poke 49774,128:rem wert fuer cia register netzfrequenz auf 50hz setzen
160 :
161 print#15,"b-p:2 0"
165 sys 49193:print#15,"u2:2 0";ta;sa:rem block rueckschreiben
170 :
175 poke 53265,27:rem bildschirm wieder an
180 :
185 close 15:close 2:rem kanaele schliessen
190 print"geos-kernal auf 50hz takt umgeschaltet":end:rem meldung ausgeben
195 :
200 rem --- disk-error ---
205 input#15,ec,e$,t,s:print"disk:";ec;e$;t;s:rem fehlerkanal lesen
210 return:rem zurueck